home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-26 | 568 b | 26 lines | [TEXT/ScoM] |
- (def-orchestra 'orchestra
- all-instruments (piano)
- )
-
- (setq symbols
- (gen-expansion-parallel 4
- (symbol-repeat 6 '(a b c b c d c d e d e f e f g))
- (list '(a b c d c b a)
- (symbol-inversion 'a '(a b c d c b a)))))
-
- (def-section sect-a
- default
- zone (lsym-correct (* (length symbols) (get-ratio '1/16 :ratio)))
- tonality (activate-tonality (melodic-minor c 4))
- length '(1/16)
- velocity '(64)
- piano
- symbol symbols
- )
-
- (midiport :printer)
-
- (play-file-p "my song"
- all-instruments '(sect-a)
- )
-